home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1993 April: Penguin on DISC / ADC Developer CD (1993-04) (''Penguin On DISC'')_iso / Dev.CD Apr 93.iso / Utilities / MPW Interfaces 7.1 Beta / PInterfaces / Lists.p < prev    next >
Encoding:
Text File  |  1992-08-28  |  4.2 KB  |  153 lines  |  [TEXT/MPS ]
  1.  
  2. {
  3. Created: Sunday, September 15, 1991 at 11:23 PM
  4.  Lists.p
  5.  Pascal Interface to the Macintosh Libraries
  6.  
  7.   Copyright Apple Computer, Inc. 1985-1991
  8.   All rights reserved
  9. }
  10.  
  11.  
  12. {$IFC UNDEFINED UsingIncludes}
  13. {$SETC UsingIncludes := 0}
  14. {$ENDC}
  15.  
  16. {$IFC NOT UsingIncludes}
  17.  UNIT Lists;
  18.  INTERFACE
  19. {$ENDC}
  20.  
  21. {$IFC UNDEFINED UsingLists}
  22. {$SETC UsingLists := 1}
  23.  
  24. {$I+}
  25. {$SETC ListsIncludes := UsingIncludes}
  26. {$SETC UsingIncludes := 1}
  27. {$IFC UNDEFINED UsingTypes}
  28. {$I $$Shell(PInterfaces)Types.p}
  29. {$ENDC}
  30. {$IFC UNDEFINED UsingControls}
  31. {$I $$Shell(PInterfaces)Controls.p}
  32. {$ENDC}
  33. {$IFC UNDEFINED UsingMemory}
  34. {$I $$Shell(PInterfaces)Memory.p}
  35. {$ENDC}
  36. {$SETC UsingIncludes := ListsIncludes}
  37.  
  38. CONST
  39. lDoVAutoscroll = 2;
  40. lDoHAutoscroll = 1;
  41. lOnlyOne = -128;
  42. lExtendDrag = 64;
  43. lNoDisjoint = 32;
  44. lNoExtend = 16;
  45. lNoRect = 8;
  46. lUseSense = 4;
  47. lNoNilHilite = 2;
  48. lInitMsg = 0;
  49. lDrawMsg = 1;
  50. lHiliteMsg = 2;
  51. lCloseMsg = 3;
  52.  
  53. TYPE
  54. Cell = Point;
  55.  
  56. DataPtr = ^DataArray;
  57. DataHandle = ^DataPtr;
  58.  
  59. DataArray = PACKED ARRAY [0..32000] OF CHAR;
  60.  
  61. ListPtr = ^ListRec;
  62. ListHandle = ^ListPtr;
  63. ListRec = RECORD
  64.  rView: Rect;
  65.  port: GrafPtr;
  66.  indent: Point;
  67.  cellSize: Point;
  68.  visible: Rect;
  69.  vScroll: ControlHandle;
  70.  hScroll: ControlHandle;
  71.  selFlags: SignedByte;
  72.  lActive: BOOLEAN;
  73.  lReserved: SignedByte;
  74.  listFlags: SignedByte;
  75.  clikTime: LONGINT;
  76.  clikLoc: Point;
  77.  mouseLoc: Point;
  78.  lClikLoop: ProcPtr;
  79.  lastClick: Cell;
  80.  refCon: LONGINT;
  81.  listDefProc: Handle;
  82.  userHandle: Handle;
  83.  dataBounds: Rect;
  84.  cells: DataHandle;
  85.  maxIndex: INTEGER;
  86.  cellArray: ARRAY [1..1] OF INTEGER;
  87.  END;
  88.  
  89.  
  90. FUNCTION LNew(rView: Rect;dataBounds: Rect;cSize: Point;theProc: INTEGER;
  91.  theWindow: WindowPtr;drawIt: BOOLEAN;hasGrow: BOOLEAN;scrollHoriz: BOOLEAN;
  92.  scrollVert: BOOLEAN): ListHandle;
  93.  INLINE $3F3C,$0044,$A9E7;
  94. PROCEDURE LDispose(lHandle: ListHandle);
  95.  INLINE $3F3C,$0028,$A9E7;
  96. FUNCTION LAddColumn(count: INTEGER;colNum: INTEGER;lHandle: ListHandle): INTEGER;
  97.  INLINE $3F3C,$0004,$A9E7;
  98. FUNCTION LAddRow(count: INTEGER;rowNum: INTEGER;lHandle: ListHandle): INTEGER;
  99.  INLINE $3F3C,$0008,$A9E7;
  100. PROCEDURE LDelColumn(count: INTEGER;colNum: INTEGER;lHandle: ListHandle);
  101.  INLINE $3F3C,$0020,$A9E7;
  102. PROCEDURE LDelRow(count: INTEGER;rowNum: INTEGER;lHandle: ListHandle);
  103.  INLINE $3F3C,$0024,$A9E7;
  104. FUNCTION LGetSelect(next: BOOLEAN;VAR theCell: Cell;lHandle: ListHandle): BOOLEAN;
  105.  INLINE $3F3C,$003C,$A9E7;
  106. FUNCTION LLastClick(lHandle: ListHandle): Cell;
  107.  INLINE $3F3C,$0040,$A9E7;
  108. FUNCTION LNextCell(hNext: BOOLEAN;vNext: BOOLEAN;VAR theCell: Cell;lHandle: ListHandle): BOOLEAN;
  109.  INLINE $3F3C,$0048,$A9E7;
  110. FUNCTION LSearch(dataPtr: Ptr;dataLen: INTEGER;searchProc: ProcPtr;VAR theCell: Cell;
  111.  lHandle: ListHandle): BOOLEAN;
  112.  INLINE $3F3C,$0054,$A9E7;
  113. PROCEDURE LSize(listWidth: INTEGER;listHeight: INTEGER;lHandle: ListHandle);
  114.  INLINE $3F3C,$0060,$A9E7;
  115. PROCEDURE LDoDraw(drawIt: BOOLEAN;lHandle: ListHandle);
  116.  INLINE $3F3C,$002C,$A9E7;
  117. PROCEDURE LScroll(dCols: INTEGER;dRows: INTEGER;lHandle: ListHandle);
  118.  INLINE $3F3C,$0050,$A9E7;
  119. PROCEDURE LAutoScroll(lHandle: ListHandle);
  120.  INLINE $3F3C,$0010,$A9E7;
  121. PROCEDURE LUpdate(theRgn: RgnHandle;lHandle: ListHandle);
  122.  INLINE $3F3C,$0064,$A9E7;
  123. PROCEDURE LActivate(act: BOOLEAN;lHandle: ListHandle);
  124.  INLINE $4267,$A9E7;
  125. PROCEDURE LCellSize(cSize: Point;lHandle: ListHandle);
  126.  INLINE $3F3C,$0014,$A9E7;
  127. FUNCTION LClick(pt: Point;modifiers: INTEGER;lHandle: ListHandle): BOOLEAN;
  128.  INLINE $3F3C,$0018,$A9E7;
  129. PROCEDURE LAddToCell(dataPtr: Ptr;dataLen: INTEGER;theCell: Cell;lHandle: ListHandle);
  130.  INLINE $3F3C,$000C,$A9E7;
  131. PROCEDURE LClrCell(theCell: Cell;lHandle: ListHandle);
  132.  INLINE $3F3C,$001C,$A9E7;
  133. PROCEDURE LGetCell(dataPtr: Ptr;VAR dataLen: INTEGER;theCell: Cell;lHandle: ListHandle);
  134.  INLINE $3F3C,$0038,$A9E7;
  135. PROCEDURE LFind(VAR offset: INTEGER;VAR len: INTEGER;theCell: Cell;lHandle: ListHandle);
  136.  INLINE $3F3C,$0034,$A9E7;
  137. PROCEDURE LRect(VAR cellRect: Rect;theCell: Cell;lHandle: ListHandle);
  138.  INLINE $3F3C,$004C,$A9E7;
  139. PROCEDURE LSetCell(dataPtr: Ptr;dataLen: INTEGER;theCell: Cell;lHandle: ListHandle);
  140.  INLINE $3F3C,$0058,$A9E7;
  141. PROCEDURE LSetSelect(setIt: BOOLEAN;theCell: Cell;lHandle: ListHandle);
  142.  INLINE $3F3C,$005C,$A9E7;
  143. PROCEDURE LDraw(theCell: Cell;lHandle: ListHandle);
  144.  INLINE $3F3C,$0030,$A9E7;
  145.  
  146.  
  147. {$ENDC} { UsingLists }
  148.  
  149. {$IFC NOT UsingIncludes}
  150.  END.
  151. {$ENDC}
  152.  
  153.